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Index to Volume 4 


This time last year we published a cumulative index to the 
first three years of Apple Assembly Line. In this igsue we add 
a separate index to Volume 4, covering October 83 through 
September 84. Perhaps in another year or two we can do another 
complete index. 


65802 is Here! 


After nearly a year of more or less patient waiting, we finally 
have a sample 65802 microprocessor. It does indeed plug right 
into an Apple //e, and works just fine. See Bob's atory inside 
for all the details. 


Blind Word Processor 


Subscriber Larry Skutchan, of Little Rock, Arkansas, has 
adapted the S-C Word Processor to work with the Echo Two Speech 
Synthesizer. He now has a special word processor for the 
blind, which he says is the best available. The price will be 
$95.50. Larry is a blind university student, majoring in 
Computer Science. You can reach him at (501) 568-2172. 


18-Digit Arithmetic, Part 6...........+....-BOb Sander-Cederlof 


This month's installment will cover some of the elementary 
functions: VAL, INT, ABS, SGN, and SQR. I will also introduce 
a general polynomial evaluator, which will be used by most of 
the other math functions. 


Most of the functions expect a single argument, which will be 
loaded into DAC by the expression evaluator just before calling 
the function code. The function code will compute a value 
based on the argument, and leave the result in DAC. As the 
expression evaluator calls with JSR, the function code returns 
with RTS. 


One exception to the above paragraph is the VAL function. VAL 
processes a string expression, and converts it into a value in 
DAC. The code in lines 1350-1610 of the listing closely 
parallels the VAL code in the Applesoft ROMs. Lines 1350-1370 
evaluate the string expression. Lines 1380-1460 save the 
current TXTPTR value (which points into your Applesoft 
program), and makes TXTPTR point instead at the resulting 
string. Lines 1470-1520 save the byte just past the end of the 
string and store a 00 terminator byte in its place. FIN will 
evaluate the string, placing the numeric value into DAC. Then 
lines 1540-1600 restore the byte after the string and TXTPTR. 


The INT function zeroes any digits after the decimal point ina 
number. A number in DAC has 20 digits. The exponent will be 
$00 if the value is zero, $01-40 if the value is all 
fractional, $41-53 if the value has from 1 to 19 digits before 
the decimal point, or $54-7F if the value has no fractional 
digits. 


Lines 1650-1700 remove the $40 bias from the exponent. If the 
exponent was $00-40, DP.ZERO will force DAC to zero. Lines 
1730-1740 check for the case of no fractional digits, and exit 
immediately. Lines 1750-1860 zero the digits after the decimal 
point. If the exponent was odd, there is one digit to be 
removed in the first byte to be cleared; the rest get both 
digits zeroed. 


The simplest function is ABS, or absolute value. All it 
err is forcing the sign positive, handled at lines 
-1930. 


Almost as simple is SGN, or sign function. SGN returns -l, 0, 
or +l, according as DAC was negative, zero, or greater-than- 
zero. Lines 1970-1980 check DAC.EXPONENT, which will be zero 
if-and-only-if DAC is zero. If the value is not zero, lines 
1990-2030 force the value to be 1.0, while retaining the 
original sign. 


SQR, the square root function, is more interesting. Do you 
remember the way you learned to take square roots in high 
school? Neither do I, but there is a handier way in computers 
anyway. 
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S-C Macro Assembler Version 1.O.ccccccccvcccccccccccsccccsecvescesecs ce S80 
S-C Macro Assembler VerSion loleccccccccccccccsscccvcvccccsecccces se goee dU 
Version 1.1 UDGACCs 465 6 How He hw 656564484666 wee baS EE hee eek eee lee OU 
Source Code for Version 1.1 (on two disk SideS) ...ccscccccccccccevece lOO 
Full Screen Editor for S-C Macro (with complete source code)..........$49 
S-C Cross Reference Utility (without source Code) ....ccccccccccccccese S20 
S-C Cross Reference Utility (with complete source code)......ccecceeee $90 
DISASM Dis-Assembler (RAR H=WALC) 6.4 ioe 06 8 66 oS 0 Os eee wwe ee oo" 
Source Code for DISASM...ccccccccccccccccsccceccccccccsesseadditional $30 


S-C Word Processor (with complete source COdE)...ccrcccccccccsccccecees $D0 
Double Precision Floating Point for Applesoft (with source code)......$50 
S-C Documentor (complete commented source code of Applesoft ROMs).....$50 
Source Code of //e CX & FB ROMS On GiSk..cccccccccccccccscccccescssese Sid 


(All source code is formatted for S-C Macro Assembler Version 1.1. Other 
assemblers require some effort to convert file type and edit directives.) 


AAL Quarterly DiBKG ik 66s oeb.wbw One ow O46 Ww be oS e wea eee reese saws each $15 

Each disk contains all the source code from three issues of “Apple 
Assembly Line”, to save you lots of typing and testing time. 
QD#1: Oct-Dec 1980 QD#2: Jan-Mar 1981 QD#3: Apr-Jun 1981] 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 1981 QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 
QD#10: Jan-Mar 1983 QD#11: Apr-Jun 1983 QD#12: Jul-Sep 1983 
QD#13: Oct-Dec 1983 QD#14: Jan-Mar 1984 QD#15: Apr-Jun 1984 
QD#16: Jul-Sep 1984 


AWIIe Toolkit (Don Lancaster, SynergeticS) ...ccccccccccccccsccccscsscse $39 
Quick-Trace (Anthro-Digital) ....cccccccccccccccsccccccccce (rege $50) $45 
Visible Computer: 6502 (Software Masters) ..ccccrccccccceee (rege $50) $45 
ES-CAPE : Extended s-C Applesoft Program EGICOF 66 is ses sew eek 6s e dee ows $60 
Amper-Magic (ANtN rO-Digital ) sessseceeewetaeweasseee eee wewe (FOG. $50) $45 
Amper-Magic Volume 2 (Anthro-Digital) ...ccccccccccccccccee (Lege $30) $25 
“Bag of Tricks", Worth & Lechner, with diskette....ccceccceee ($39.95) $36 


Blank Diskettes (Verbatim) .....ecceeee2e25 each, or package of 20 for $40 
(Premium quality, single-sided, double density, with hub rings) 

Vinyl disk pages, 6"x8.5", hold two disks each...ccccccccccceeee 10 for $6 
Diskette Mailing Protectors (hold 1 or 2 disksS).......eeee..40 cents each 

or $25 per 100 

These are cardboard folders designed to fit into 6°X9" Envelopes. 

Envelopes for Diskette MailersS...cccccccccccccsccccccccccee 6 Cents each 
QuikLoader EPROM System (SCRE) s4 tw eidw awa s Gee ee eeawe ares eeewsel ols 2) $170 
D MAnual Controller (SCRG) cieeed own w 440 60 eee ee wwe ae eeeee aww (O80) $85 
Switch-a-Slot (SCRG) i.6s5.0 06-6 G Ao owe ew ee Swe eww ow ete e ( OL 90) $175 
Extend~-a-Slot CS CRG) 656.655 b 0s es oe Seas Wawreesees bene ees ee bs owe (530) $32 


Books, BOOKS, BOOKS..cccccccccccccovessecessecompare our discount prices! 
"Apple J{ Circuit Description", Gayler...ccsccccccccccee ($22.95) $21 
"Understanding the Apple II", Sather...ccccccccccccccece ($22.95) $21 
“Enhancing Your Apple II, vol. 1%, Lancaster...ccccceeee ($15.95) $15 

Second edition, with //e information. 
"Assembly Cookbook for the Apple II/IIe", Lancaster.....($21.95) $20 
“Incredible Secret Money Machine", Lancaster... cccccccece (917-95) $7 
“Beneath Apple DOS", Worth & Lechner....ccccccccccvccecee (919.95) $18 
“Beneath Apple ProDOS", Worth & Lechner...ccerecccceecscee (919.95) $18 
“what's Where in the Apple", Second Edition......cceecee ($19.95) $19 
"6502 Assembly Language Programming", Leventhal.........($18.95) $18 
"6502 Subroutines", Leventhal... .cccccccccccccccccccccces (918.95) $18 
"Real Time Programming -- Neglected Topics’, Foster.....- ($9.95) 9 
"Microcomputer GraphicS", MYES.cccccccccccccecseccccces ($12.95) 


We have small quantities of other great books, call for titles & prices. 
Add $1.50 per book for US shipping. Foreign orders add postage needed. 


Texas residents please add 6 1/8 % sales tax to all orders. 


**k* S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
adhd (214) 324-2050 wee 
*** We accept Master Card, VISA and American Express *** 
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Suppose I want to find square root of 25. I could start with a 
wild guess, check it to see if I am close by squaring and 
comparing with 25, and then refining my guess until it is as 
accurate as I need. Suppose my wild guess is 7 (pretty wild!). 


7*7 is 49, which is bigger than 25, so my next guess should be 
less than 7. Instead of just guessing wildly for the next one, 
why not take the average between 7 and 25/7? That average is 
5.286. The average of 5.286 and 25/5.286 is 5.0076. The next 
one is 5.0000079. You can see that I am rapidly approaching 
the answer of 5.0. 


The method of refining an approximation as exemplified above 
was derived originally be Sir Isaac Newton. His method 
involves calculus, can get quite complex, and applies to all 
sorts of problems. But in the case of the square root, it is 
as simple as averaging an approximation with the argument 
divided by the approximation. 


It turns out that it is a very good method, because if you can 
get an initial approximation that has the first few digits 
right, the number of digits that are correct will slightly more 
than double each time you run through Newton's improver. 


The next trick is to reduce the range of possible arguments 
from the full range of zero to 10°63 down to the range from .1 
to 1.0. The zero case is easy, because SQR(0) = 0, and is 
handled at lines 2100-2110. Notice that lines 2120-2130 weed 
out negative arguments, which are not allowed. 


Remember that the square root of X*10°n is equal to 
SQR(X)*10°(n/2). Lines 2150-2190 save the exponent, and change 
it to $40. This changes the value in DAC to the range .1 to 
1.0. I have a book which gives polynomial approximations to 
the square root in that range. One with the form 

aX” 4+bx"3+...+e gives an approximation with is accurate in the 
first 2.56 digits. Three iterations by Newton yield more than 
22 accurate digits. The same book shows a cubic polynomial 
which gives 2.98 accurate digits if we can get the value into 
the range between .25 and 1.0. 


Lines 2200-2280 fold the values between .1 and .25 up to the 
range .4 through 1.0 by multiplying the value by 4. (This 
multiplication goes pretty fast, since most of the bytes are 
zero.) The fact that we quadrupled the value is remembered, so 
that we can later halve the approximate root at lines 
2350-2410. The cubic polynomial is evaluated in lines 
2290-2340, by calling POLY.N. The result, by the time we reach 
line 2420, is an approximate square root of the number between 
~l and 1; now we need to make it an approximate root of the 
original argument. 


Lines 2420-2480 compute the exponent of the square root, by 
simply dividing the original exponent by two. If there is a 
remainder, meaning the original exponent was odd, then we also 
need to multply the trial root by SQR(10). This is handled in 
lines 2490-2550. The halved original exponent next is added to 
the trial exponent, giving a good first approximation to the 
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square root of the original argument. Lines 2600-2740 run 
through three cycles of the Newton iteration, giving plenty of 
precision. If we were carrying enough digits along, the 2.98 
digits of precision our polynomial produced would be refined to 
a full 26 digits, according to my book. 


Speaking of the book, it is one I bought a number of years ago 
when working on double precision math for a Control Data 3300 
time sharing system. As far as I know, it is still the best 
book in its field. “Computer Approximations", by J. F. Hart 
and about seven other authors, was published in 1968 by John 
Wiley & Sons. I don't know if it is still in print or not, but 
if you ever need to create some high precision math routines, 
you ought to try to find a copy. 


A very common element in the evaluation of many math functions 
is an approximation to the function over a limited range by a 
polynomial, or by the quotient of two polynomials. Therefore 
it is handy to have an efficient subroutine to evaluate a 
polynomial. Two different entry points allow efficient 
evaluation of two kinds: those whose first coefficient isl, 
and the rest. POLY.N evaluates those whose first coefficient 
is not one, and POLY.1 does those whose first is l. 


POLY.N S— a*x°n + b*x n-l + eee 
POLY.1 -- x°n + a*®x "n-l + ... 


In both cases, you enter with the address of a table of 
coefficients in the Y- and A-registers (hi-byte in Y, lo-byte 
in A), and the degree of the polynomial in the X-register. 
Thus you see that in lines 2290-2340 the table P.SQR is 
addressed, and the degree of polynomial is 3 (cubic). Both 
POLY.N and POLY.1 assume that the value of x is in TEMP2. 
Where all terms have been computed and added, the result will 
be in DAC. 


Actually, I may have misled you a little in the last sentence. 
The terms of the polynomial are not separately computed and 
added, but rather they are accumulated in a simple serial 
fashion: 


poly = ((( a * x + b) * x +c) * x +d) * x te 


The coefficients and other constants shown in lines 2770-2830 
are in a special format which includes an extra two digits. 

You will remember that the basic operations (+-*/) are carried 
out to 20 digits. Therefore these constants are carried out to 
20 digits. They are not critical in the square root 
computation, thanks to Sir Isaac, but the log and trig 
functions will need then. 
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1000 #SAVE S.DP18 FUNC 1 
BT- 1020 AS.CHRGOT .EQ $00B7 
DD7B- 1030 AS.FRMEVL .EQ $DD7B 
DD{B- 1040 AS.CHKSTR .EQ $DD7B 
E600- 1050 AS.FRESTR .EQ $E600 
E199- 1060 AS.ILLERR EQ $£199 
FF- 1080 DMULT .EQ $FFFF 
FFFF- 1090 DDIV -EQ $FFFF 
FFFF- 1100 DADD .EQ $FFFF 
FFFF- 1110 FIN .EQ $FFFF 
FFFF- 1120 DP. TRUE .EQ $FFFF 
FFFF- 1130 DP.ZERO .EQ $FFFF 
FFFF- 1140 MOVE.DAC.TEMP3 .EQ $FFFF 
FFFF- 1150 MOVE.DAC. TEMP? .EQ $FFFF 
FFFF- 1160 MOVE. TEMP2.DAC .EQ $FFFF 
FFFF- 1170 MOVE.YA.DAC.1 .EQ $FFFF 
FFFF- 1180 MOVE.YA.ARG.1 .EQ $FFFF 
FFFF- 1190 MOVE.TEMP3.ARG .EQ $FFFF 
FFFF- 1200 MOVE. TEMP2.ARG EQ $FFFF 
8~ 1220 TXTPTR ~EQ $58,B9 
0- 12 0 DEST -EQ $60,61 
0800- 1250 TEMP2 .BS 1 
0801- 1260 TEMP3 -BS 1 
0802- 1270 P1 -BS 2 
0804- 1280 DAC.EXPONENT .BS 1 
0805- 1290 DAC. HI SBS 10 
O80F- 1300 DAC. SIGN -BS 1 
3 9 VAL (X$) FUNCTION 
0810- 20 B7 00 1 io DP.VAL JSR AS.CHRGOT 
0813- 20 7B DD 1350 JSR AS.FRMEVL GET STRING 
08 1 = 20 1B DD 1360 JSR AS.CHKSTR MAKE SURE IT IS A STRING 
0819- Ap 1 10 LDA TXTPTR SAVE TXTPTR 
081C- Ag BQ 1390 LDA TXTPTR+1 
O81E- 4 1400 PHA 
081F- 20 00 £6 1410 JSR AS.FRESTR FREE THE STRING;GET ADR IN 
0822- 86 BS 1420 STX TXTPTR Y,X AND LEN IN A 
0824- 86 60 1130 STX DEST | SAVE BEGINNING OF STRING 
0826- 4 BQ 14 STY TXTPTR+1 
0828- 84 61 1450 STY DEST+ 
O82A- AS 1460 TAY LENGTH TO Y 
082B- 8D 00 08 1470 STA TEMP2 SAVE LENGTH 
082E- Bi B 1480 LDA (TXTPTR),Y 
0830- 48 1490 PHA SAVE CHAR AT END OF STRING 
0831- A9 0 1500 LDA f0 
0833- 91 B 1510 STA (TXTPTR),Y PUT O AT END OF STRING 
08 = 20 FF FF 1520 JSR FIN GET THE NUMBER 
08 3B- 6 1530 PLA GET CHAR 
0839- AC 00 08 15 LDY TEMP2 GET LENGTH 
083C- 91 60 1550 STA (DEST),Y 
083E- 68 1560 PLA RESTORE TXTPTR 
083F- 85 B9 1570 STA TXTPTR+1 
0841- 68 1580 PLA 
0842- 85 BB = 1590 STA TXTPTR 
O844- 60 100 : RTS VAL IS IN DAC 
1620 * INT FUNCTION 
ogy Ap 04 08 1640 DP.INT LDA DAC. EXPONENT 
O848- 3 1650 C 
0849- EQ 40 1660 SBC #$40 REMOVE OFFSET 
O84B- 10 03 1670 BPL . POSITIVE EXP 
1680 ®---ALL FRACTION, MAKE = 0------- 
O84D- 4C FF FF 1690 .0 JMP DP.ZERO 
1700 #---SOME INTEGER, TRUNCATE------- 
08 O- FOF 1719 x BEQ . .. ALL FRACTION 
0852- C9 1 1720 CMP #20 ALL INTEGER? 
0854- BO 18 1730 BCS .4 .~.YES, NONTHING TO LOP 
ppee Ae ep TAY BEE ENDEX” 
O857- A 1750 TAY 
oad a9 op 180 BCC ..eNO NYBBLE TO CLEAR 
= 08 DA DAC.HI,Y :..CLEAR A NYBBLE 
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OK5D=- 29 FO 1780 AND #$F0 
O85F=- 99 05 08 1790 STA DAC.HI,Y 
0863- CO OA 1810 CPY #10 FINISHED? 
0865- BO 07 1820 BCS .4 oe e YES 
0867- AQ 00 1830 3 LDA CLEAR A BYTE 
0869- 99 05 08 1840 STA DAC.HI,Y 
086C- FO F 1850 BEQ .2 .- ALWAYS 
O86E- 60 1860 .4 RTS 
1870 fememee ene eee mn enw e wenn ene e eee 
1880 # ABS (DAC) 
1890 5 a ra a oe ee ee Pecan 
O86F- AQ 00 1900 DP.ABS LDA #0 STORE 0 IN 
i 8D OF 08 1910 STA DAC.SIGN SIGN 
O874=- 60 1920 RTS 
1 30 Ciccmeos es meneoeasoeeee eee ee mewmanaes 
13 9 : SGN (DAC) 
0875 - AD O4 08 1320 DP.SGN LDA DAC.EXPONENT 
0878- FO OB 1970 BEQ .1 IT IS 0, SO LEAVE IT 
08 7A- £p OF 08 13 0 LDA DAC.SIGN 
087D- 1990 PHA VE SIGN 
O87E- 20 FF FF 2000 JSR DP.TRUE PUT 1 IN DAC 
0881- 68 2010 PLA 
0882- 8D OF 08 2020 STA DAC.SIGN RESTORE SIGN 
0885- 60 2030 .1 RTS 
20 0 Gow > ED D> GED Ge > GD GP GD GD SO SD SD OD OF SE OSS OPS oeseaawe 
2050 # SQR (DAC) 
2060 : #0072 IN HART, ET AL 
0886— 4C 99 E1 2080 ERR.SQ JMP AS.ILLERR ILLEGAL QUANTITY 
0889- AD 08 2090 DP.SQR LDA DAC.EXPONENT 
088C- FO 7B 2100 BEQ .3 SQR(0)=0 
O88E- AD OF 08 2110 LDA DAC.SIGN 
0891=- 30 F3 2120 BMI ERR.SQ MUST BE POSITIVE 
0893- 20 FF FF 2130 JSR MOVE.DAC. TENP3 SAVE X 
2140 @---REDUCE RANGE TO .1 = 1---2=-- 
0896= AD O4 08 2150 LDA DAC.EXPONENT 
08 99- 48 2160 PHA SAVE EXPONENT 
O89A- AQ 4O 2170 LDA #$40 CHANGE RANGE TO .1 THRU .9999...9 
089C- 8D O04 08 2180 STA DAC.EXPONENT 
2190 #—--REDUCE RANGE TO .25 = lee---- 
O89F- AD 05 08 2200 LDA DAC.HI 
O8A2= C9 25 2210 CMP #$25 LESS THAN .257? 
O8A4=- 0 2220 PHP SAVE ANSWER 
O8A5= BO OA 2230 BCS .4 oe NO 
O8A7= AO AC 22h0 LDA #CON.FOUR 
O8A9- Ad 09 2250 LDY /CON.FOUR 
O8AB=- 20 FF FF 2260 JSR MOVE. YA. ARG. 1 
O8AE- 20 FF FF 2270 JSR DMULT 
2280 #---CALC FIRST APPROX. ----------- 
O8B1- 20 FF FF 2290 .& JSR MOVE.DAC. TEMP2 
O8B4=- AQ OA 2300 LDA #P.SQR GET FIRST APPROXIMATION 
O8B6- Ad 09 2310 LDY /P.SQR FROM AX 3+BX~ 2+CX+D 
OBB8- A2 0 2320 LDX #P.SQR.N 
O8BA- 20 75 09 2330 JSR POLY. 
2340 #---ADJUST APPROX FOR FOLDING-—~-- 
O8BD- 28 2350 PLP WaS X<.25 
O8BE~ BO OA 2 60 BCS 5 eee 
O8CO- AQ 41 2370 LDA #CON.HALF 
O8C2- AO 09 2380 LDY /CON.HALF 
O8C4=- 20 FF FF 2390 JSR MOVE. YA.ARG. 1 
O8C7=- 20 FF FF 2400 JSR DMULT 
2410 #---COMPUTE SQR EXPONENT--------- 
O8CA~ 68 2420 .5 PLA GET EXPONENT FROM BEGINNING 
O8CB- 38 230 SEC 
O8cC- E9 40 24 SBC #$40 REMOVE OFFSET 
O8CE- 6A 2450 ROR DIVIDE BY TWO (KEEP SIGN) 
O8CF- 49 80 2460 EOR #$80 
O8D1i= 9C OC 2470 BCC . DON'T MULT BY SQR(10) 
2480 #-—-ADJUST APPROX FOR ODD EXP---- 
O8D3- 48 2490 PHA SAVE EXPONENT/2 
O8DH- AO 36 2500 LDA #CON.SQR10 
O8D6- Ad 09 2510 LDY /CON.SQR10 
O8D8- 20 FF FF 2520 JSR MOVE. YA. ARG. 1 
O8DB=- 20 FF FF 2530 JSR DMULT 
O8DE- 68 25 PLA 
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2550 pg eee NEW EXPONENT --------- 


O8DF- 18 2500 .1 
O8EO- 6D O04 08 2570 ADC DAC.EXPONENT 
O8E3- 8D O04 08 2580 STA DAC.EXPONENT 

2920 $---THREE NEWION ITERATIONS------ 
O8E6=- AQ 0 2600 LDA #3 
O8E8- 8D 01 08 2610 STA TEMP3 
O8EB- 20 FF FF 2620 .2 JSR MOVE.DAC.TEMP2 TEMP2 = Y 
O8EE- 20 FF FF 2630 JSR MOVE. TEMP3.ARG GET X 
O8Fi- 20 FF FF 2640 JSR DDIV x/Y 
O8F4=- 20 FF FF 2650 JSR MOVE. TEMP2.ARG 
O8F7=- 20 FF FF 2660 JSR DADD X/Y+Y 
O8FA- AQ 41 2670 LDA #CON.HALF 
O8FC=- AO 09 2680 LDY /CON. F 
O8FE- 20 FF FF 2690 JSR MOVE. YA. ARG. 1 
0901- 20 FF FF 2700 JSR DMULT (X/Y+Y)/2 
0904- CE 01 08 2710 DEC TEMP3 
0 = 2 50 P.SQR.N ~EQ 3 
O90A- 40 28 i3 
O090D- 69 82 
0910- 00 00 00 
Boies rd ge 58 2760 P.SQR ~HS 4028736982400000000000 
0918- 88 89 10 
091B=- 00 00 00 
091E- 00 00 2770 HS C082588889100000000000 
0920=- 41 13 22 
0923- 56 35 60 
0926= 00 00 00 
0929= 00 00 2780 -HS 41132256 38600000000000 
092B- 40 21 70 
O92E- 18 67 20 
0931- 00 00 
. é- | 99 62 2790 HS 402170 1867200000000000 
0939- 2 is 60 
093C- 1 3 19 
09 3F= 3 2 2800 CON.SQR10 .HS 413162277660 1683793320 
0941- 50 00 
0944- 00 00 00 


O94A- 00 00 2810 CON.HALF .HS 4050000000000000000000 


0955=- 00 00 2820 CON.FOUR .HS 4140000000000000000000 


2030 Bidtweincaciewececicnecincecemeccsin 
atts # poo EVALUATOR ROUTINES 
2850 # A) = ADDRESS OF COEFFICIENT TABLE 
2860 # GahAnGeD HIGHEST POWER TO LOWEST 
2870 : CONSTANTS DO USE GUARD BYTE (11 TOTAL) 
2890 ® DO A POLYNOMIAL WITH 1ST CONSTANT 1 
2900 # TEMP2) IS X-VALUE 
2910 # X-REG) IS N 
2920 # RE N = POWER OF X 
2 70 & FOR EXAMPLE, IF N=2 : X°2+AX+B 
QO # N=4 3: X°4+4AX"3+BX"2+CX+D 
2 20 Semen ene nme n ween e ne 
O POLY.1 
0957=- 8D 02 08 2970 STA P1 
Os6- Be Of o8 2093 SY bats 
Se BEET 3 aace Han Bree rec 
O3 eee AC 03 o 3530 LDY Pi+1 
cose- So Fr re dodo en Bap: A ARO-' 
O96F- CE 01 08 3050 DEC TEMP3 FINISHED YET? 
0972= DO OD 060 BNE POLY eee NO 
0974= 60 070 RTS oe e YES 


Page 8....Apple Assembly Line.....October, 1984....Copyright (C) S-C SOFTWARE 


3080 #---------~---------------------- 
3090 § DO A POLYNOMIAL WITH 1ST CONSTANT <> 1 
100 ® TEM P2 } IS X-VALUE 
3110 § X-REG) IS N 
120 ® WHERE N = POWER OF X 
130 FOR EXAMPLE, IF N=2 : AX72+BX+C 
140 # N=3 : AX”3+BX~2+CX+D 
I aan 
160 POLY.N 
097 8D.02 08 3170 STA P1 
0978- 3 08 3180 STY P1+1 
097B- 8E 01 08 3190 STX TEMP 
OO7E- 20 FF FF 3200 JSR MOVE. YA.DAC. 1 
0981- 20 FF FF 3210 POLY2 JSR MOVE.TEMP2.ARG 
O964- 20 FF FF 3220 JSR DMULT 
$885. 02 08 32 LDA P1 
09 8B- 69 ? ADC #11 NUMBER OF BYTES 
098D- 8D 02 08 3260 STA P1 
0990- 90 D1 BCC POLY 
0992~ EE 03 08 3260 INC P1+1 
0995- DO CC 90 BNE POLY ... ALWAYS 


An Even Trickier “Index to MaSk"....c.eeeeeeeeeeeCharles Putney 
Dublin, Eire 


I got AAL today (September 1984 issue), and pored through it as 
usual. The “index" article on page 18 caught my eye. 

Naturally I tried to think of a smaller way of coding the 
routine like your "TRICKIER.WAY" of 32 bytes. Here it is, in 
only 23 bytes! 


1000 *-------------------------------- 
1010 * PUTNEY'S WAY 

L020 SeS=s2S 33 =335$4=5355455255SSe-== 

1030 PUTNEY.WAY 

1040 AND #7 ooee e 421 

1050 LSR owaswe ely 1 IN CARRY 
1060 PHA SAVE FOR LATER PLP 
1070 LDA #1 INITIAL MASK VALUE 
1080 BCC .l NO NEED TO SHIFT 1 
1090 ASL 

1100 .1 PLP GET 1.....42 AS NV.BDIZC 
1110 BCC .2 NO NEED TO SHIFT 2 
1120 PHP 

1130 ASL 

1140 ASL 

1150 PLP 

1160 .2 BNE .3 NO NEED TO SHIFT 4 
1170 ASL 

1180 ASL 

1190 ASL 

1200 ASL 

1210 .3 RTS 


The timing, not including a JSR to it nor the RTS at the end, 
varies from a best case of 21 cycles to a worst case of 39 
cycles. 


[One note of warning: the PLP pulls a status of 000000xx, 
setting the I-status to zero. This enables IRQ interrupts, 
which might be very dangerous if you have an interrupting 
source connected and were otherwise unprepared. ] 
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Correction to DP18, Part Dik sew eb 6 4d Oe Oe oe eee raul Schlyter 


The following comments relate to the listing on page 13 of the 


September 1984 issue. 


It appears to me that lines 4610-4620 and 4650-4660 can be 


deleted. 


They check for the non-tokenized forms of “+" and 


*—", which I believe will never. be presented to DP18. 


There is a definite bug at line 4460: 
Compare with lines 4370 and 4410, and you will see 
Also the comment on line 4170, which says the 


"LDA #$04". 
how I caught it. 


the “LDA #$02" sho:vld be 


bit map is in the form °00000<=>". 


Another Tricky Way....Bruce Love 
Hamilton, New Zealand 


Here is my effort to improve 
your version of turning an index 
into a mask. It uses (shudder!) 
self-modifying code, but it is 
shorter and faster and I think 
easy to understand. 


LOVE .VERSION 
AND #7 
EOR #7 
STA .1+1 
LDA #1 

ol BNE .1l 
ASL 
ASL 
ASL 
ASL 
ASL 
ASL 
ASL 
RTS 


(OFFSET FILLED IN) 


And Still Another...David Eisler 
Littleton, Colorado 


With reference to "Turn Index 
into a Mask" (AAL Sept 84), here 
is another tricky alternative. 
It uses only the A-register, is 
only 16 bytes long, and takes 9 
to 23 cycles. 


EISLER.VERSION 
AND #7 
STA .1+] 
LDA #880 
ol BNE .l 
LSR 
LSR 
LSR 
LSR 
LSR 
LSR 
LSR 
RTS 


(OFFSET FILLED IN) 


Se a Ta i I Re RE ET 


Assembly Language Programmers 


Columbia, Maryland 


Full Time Position Available Immediately 


Send Resume to: 
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Arctec Systems, Inc. 
9104 Red Branch Road 
Columbia, MD 21045 

Attn: Karen Shelsby 


CEESCESEESEEEEEEEESEEEEEESEESEEESEESEEEEEES 


FONT DOWNLOADER & EDITOR ($39.00) 


Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. All special printer functions (like expanded, compressed etc.) 
apply to custom fonts. Full HIRES screen editor lets you create your own characters and special graphics 
symbols. Compatible with many parallel printer \/F cards. User driver option provided. For Apple Il, Il+, //e. 
Specify printer: Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 80/100, or OkiData 92/93. 


NEW ! !! The Font Downloader & Editor for the Apple Imagewriter Printer. For use with 
Apple ll, I+, //e (with SuperSerial card) and the new Apple //c (with builtin serial interface). 


NEW !!! FONT LIBRARY DISKETTE #1 ($19.00)  contsins lots of user-contributed fonts for all 
printers supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e - AN INTELLIGENT DISASSEMBLER ($30.00) 

Investigate the inner workings of machine language programs. DISASM converts machine code into meaningful, 
symbolic source. Creates a standard text file compatible with S-C, LISA, ToolKit and other assemblers. Handles 
data tables, displaced object code & even lets you substitute your own meaningful labels. (100 commonly used 
Monitor and Pg Zero names included.) An address-based triple cross reference table is provided to screen or 
printer. DISASM is an invaluable machine language learning aid to both novice & expert alike. Don Lancaster 
says DISASM is “absolutely essential” in his new ASSEMBLY COOKBOOK. For entire Apple I! family including the 
new Apple //c (with all the new opcodes). SOURCE CODE available for an additional $30.00 


S-C Assembler (Ver 4.0 only) SUPPORT UTILITY PACKAGE ($30.00) 

“ SC _XREF - Generates a GLOBAL LABEL Cross Reference Table for complete documentation of source listings. 
* SC.GSR - Global Search & Replace eliminates teadious manual renaming of labels. Search all/part of source. 
* SC.TAB - Tabulates source files into neat, readable form. SOURCE CODE available for an additional $30.00 


The ‘PERFORMER’ CARD ($39.00) 

Plugs into any slot to convert a dumb’ centronics-type printer I/F card into a ‘smart’ one. Command menu 
eliminates need to remember complicated ESC codes. Features include perforation skip, auto page numbering 
with date & title. Includes large HIRES graphics & text screen dumps. Specify printer: MX-80 with 
Graftrax-60, MX-100, MX-80/100 with Graftraxpius, NEC 0092A, C.ltoh 6510 (Prowriter), OkiData 82A/63A 
with Okigraph & OkiData 92/93. SOURCE CODE: $30.00 


FIRMWARE FOR APPLE-CAT: The ‘MIRROR’ ROM ($25.00) 

Communications ROM plugs directly into Novation's Apple-Cat Modem card. Basic modes: Dumb Terminal, 
Remote Consola & Programmable Modem. Features include: selectable pulse or tone dialing. true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. Uses superset of 
Apple's Comm card and Micromodem |i commands. SOURCE CODE: $50.00 


RAM/ROM DEVELOPMENT BOARD ($30.00) 
Plugs into any Apple slot. Holds one user-supplied 2Kx8 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $Cn00-CnFF and $C800-CFFF. 


NEW !!! C-PRINT For The APPLE //c ($99.00) 

Connect standard parallel printers to an Apple //c. C-PRINT is s hardware accessary that plugs into the 
Standard Apple //c printer serial port. The other end plugs into any printer having a standard 36 pin 
centronics-type parallel connector. Just plug in and print! High speed data transfer at 9600 Baud. No need to 
reconfigure serial port or load software drivers for text printing. 


Avoid a $3.00 postage/handling charge by enclosing full payment with order. (Mastercard & VISA excluded) 
RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 


CECEEEEEEEEEEESEEEEEEEEEEEEEEEEEEEEES 
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The 65802 is HOY 6 lis ces dws oe eS See sees <e BOD Sander-Cederlof 


I think it was last December that I learned of the new 16-bit 
versions of our old friend, the 6502. You will remember my 
enthusiastic description in the Jan 84 issue. People at 
Western DesSign Center were optimistic about shipping chips in a 
month or so. Very optimistic. Way too optimistic. 
Nevertheless, they followed the tradition of our whole industry 
by continuing to stick by their commitment. Every time we 
called, it was always “in a month or so"! 


But yesterday (Oct 12th) it arrived. Nice shiny new COD 
Sticker on top, for $98.05, and nice new 40-legged bug inside. 
I plugged the 65802 into my //e, after carefully removing the 
65C02 I had just put in a week before. Power on, the drive 
whirrs, RESET works, hurray! 


So far I have spent about six hours exploring the new opcodes. 
I used the new but yet unreleased version 2.0 of the S-C Macro 
Assembler, naturally. The literature available up till now has 
been very sketchy on the details of some of the new opcodes and 
addressing modes. Anyway, no matter how well the printed word 
is used, the chip itself will always have the final say, the 
last word. 


Which reminds me that I have already had to correct one 
mis-understanding (bug?). I was not computing the relative 
offsets for the 16-bit relative address mode. There are two 
opcodes which use this mode: BRL, Branch Relative Long; and 
PER, Push Effective address Relative. 


BRL can branch anywhere within a 64K memory, using an offset of 
16-bits. Compare this with the other relative branches, which 
use only an 8-bit offset and can only branch inside a 256-byte 
space centered around the instruction. BRL's offset ranges 
from -32768 to +32767. 


PER pushes two bytes onto the stack. The two bytes pushed are 
the high byte and then the low byte of the address calculated 
by adding the 16-bit offset to the current PC-register. For 
example, 


O800- 62 FD FF PER $0800 
0803- 


pushes first $08 and then $00 onto the stack. Voila! Now we 
really can write position independent code! Using the 16-bit 
mode, I can PER the address of a data item or table onto the 
stack, and then PLX (Pull to X-register) that address, and 
access data by LDA 0,X or the like. 


Another favorite pair are the two block move instructions: MVN 
and MVP. With these I can move any block of memory from 1 byte 
up to 64K bytes from anywhere to anywhere. With the 65802, 
anywhere is still limited to the 64K address space, but with 
the 65816 it can be anywhere in 16 megabytes. 
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To get full advantage of MVP and MVN, you need to be in the 
16-bit mode. You get there in two steps: first you turn on 
the 65802 mode, as opposed to the 6502-emulation mode; and then 
you set some status bits which select 16-bit memory references 
and 16-bit indexing. 


You turn on the 65802 mode by clearing the new E-bit in the 
status register. The E-bit hides behind the Carry bit, and you 
access it with the XCE (Exchange C and E) instruction. 


CLC 

XCE turns on 65802 mode 

SEC 

XCE turns on 6502 emulation mode 


Then REP #$30 turns on the 16-bit mode. REP stands for Reset 
P-bits. Wherever there are one bits in the immediate value, 
the corresponding status bits will be cleared. Where there are 
zero bits in the immediate value, the corresponding status bits 
will be unaffected. The two bits cleared by REP #$30 are the 
M- and X-bits. If either of these, or both, are zero, the 
immediate mode of LDA, LDX, LDY, CMP, ADC, SBC, AND, ORA, and 
EOR become three byte instructions. For example, 


LDA ##$1234 


loads $1234 into the extended 16-bit A-register. The long 
A-reg gets a new name or two. The high byte is called the 
B-register, the low byte is still the A-register, and the pair 
together are called the C-register. 


Okay. Now back to the block movers. Both of the moves require 
some setting up first. You put the 16-bit address of the 
source block into the X-register, the destination address in Y, 
and the move count in C. For example, suppose I want to move 
the block $0800-$0847 up to $0912: 


LDX ##$0800 source 
LDY ##$0912 destination 
LDA ##$0047 # bytes - 1 
MVN 0,0 move it 


As each byte is moved, X and Y are incremented and A is 
Gecremented. After all is complete, A will have SFFFF, 
X=$0848, and Y=S$095A. 


MVP, on the other hand, decrements the A-, X- and Y-registers 
for each byte moved. If the block source and destination 
overlap, you can use the one which moves in the order that 
prevents mis-copying. 


Those two zeroes after the MVN instruction above are two 8—bit 
values. In the 65802 they don't mean anything, but in the 
65816 they are the high 8-bits of the 24-bit addresses of 
source and destination. In the 65816, you could copy one 
entire 64K bank to another with just four instructions! And it 
only takes 3 cycles per byte moved! 
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The 65802 plugs directly into the 6502 socket in your Apple 
//e. It may or may not work in older Apples ... I haven't 
tried it yet. The 65816 will not plug into any current Apple 
II, even though it also has forty pins. The extra 8-bits of 
address are multiplexed on the 8 data lines, and the meaning of 
the other pins is somewhat changed. 


Please don't get the idea that plugging in this new chip will 
Speed up your old software. Old software will stay in the 6502 
emulation mode, and will run at exactly the same pace as 
before. New software can pe written which will take advantage 
of the new features, and it can be a little faster, more 
compact, and so on. The exciting future of the 65802 and 65816 
lies not inside old Apples, but in the Apples yet to be born. 

I am dreaming of a 4-megahertz, l- to 8-megabyte Apple ... 


Meanwhile, here is a REAL example. Way back in the January 
1981 issue of Apple Assembly Line I published a General Move 
Subroutine. It was set up as a control-Y command for the 
monitor. As an improvement over the monitor M-command, it 
could move blocks which overlapped either up or down in memory 
without repeating the leading bytes. 


The following program takes advantage of the MVN and MVP 
commands to greatly speed up and shrink my previoua effort. 

The old one took 149 bytes, the new one only 80. Disregarding 
all the setup time, which also improved, the time to move a 
Single byte changed from a minimum of 16 cycles to 4 consistent 
3 cycles. 


Lines through 1090 describe how to set up and run the program, 
but don't even TRY it until you get a 65802 chip into your 
Apple! The new opcodes will do amazing things in an old 6502 
chip, but nothing at all like intended. 


Line 1100, the .OP 65816 directive, tells version 2.0 that it 
should allow and assemble the full 65816 instruction set. 


Lines 1180-1250 are executed if you use $300G after assembling, 
or if you BRUN it from a type-B file. 


Al, A2, and A4 are monitor variables which are setup by the 
control-Y command. When you type, for example, 800<900.957,°Y 
(where by “Y I mean control-Y), $800 is stored in A4, §900 in 
Al, and $957 in A2. 


Lines 1270-1290 save the three registers, and these will be 
restored later at lines 1500-1520. Lines 1320-1340 get us unto 
the 16-bit mode described above. Just before returning to the 
monitor we will switch back to 6502 emulation mode, at lines 
1480-1490. 


Lines 1360-1390 calculate the "“#bytes-1" to be moved, by using 
16-bit subtraction. Note that the opcodes assembled are 
exactly the same as they would be for 8-bit operations; the cpu 
does 16-bit steps here because we set the 16-bit mode. 
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Lines 1410-1460 determine which direction the block is to be 
moved: up toward higher memory addresses, or down toward lower 
addresses. By using two separate routines we prevent garbling 
the move of an overlapping block. 


Lines 1610-1660 move a block down. It is aS easy as rolling 
off a log.... Just load up the registers, and do an MVN 
command. 


Lines 1680-1760 move a block up. Here we need the addresses of 
the ends of the blocks, so lines 1690-1720 calculate the end 
address for the destination. Then we do the MVP command, and 
zzaappp! it's done. 


oon SSAVE S.GENERAL MOVER 
1020 *  BRUN the program to set it up as 
1030 Ps a control-Y monitor command. 
1050 # Use like the Monitor M-command: 
1060 # Al -- Source start address 
1070 # A2 -- Source end address 
1000 : | Al -- Destination start address 
1100 .OP 65816 ~~ 
1110 -OR $300 
c- 1130 a2 .EQ $3C, 3D _ 
E=- 11 0 Ae ~EQ r] F 
2- ne Ad EQ $42,43 
00- i . BLKSIZ -EQ 300,01 
1150 CONTROL. Y.SETUP 
000300- AQ AC 1190 LDA #$4C 
000302- 8D F8 03 1200 STA F8 
000307- 8) F903 © 120 STA $oFQ OER 
OO030A= AJ 03 ie, LDA /GENERAL. MOVER 
00030C- 8D FA 03 12 STA $3FA 
00030F- 60 1250 . 
ie GENERAL. MOVER 
000310= 48 1280 PHA 
000311=- 5A 1290 PHY 
000312= DA ae PHX 
ce ne a call 
000315= C2 30 130 REP #$30 16=BIT MODE 
000317- 38 1360 Compute block length - 1 
000318- A5 3E 1 19 LDA A2 
00031A= E5 3C 1380 SBC Al 
00031C= 85 00 ; 39 STA BLKSIZ 
00031E- A5 3C 1410 LDA Al ttst—“‘;O.O;O;~;™S 
4 Av ee ne ee ae . Determine direction of move 
aoe $0 63 °° 14g BRR MOVE.DOWN sways 
000 5h. 20 30 03 ae 21 JSR MOVE.UP ~ | 
00032c~ 38 1480.2 SEC RETURN TO 6502 MO 
00032D=- FB 1490 XCE 2 a 
ae a 
000330- 68 1520 PLA 
000331- 60 1930 RTS 
1 0 Bane GP @S Se GF GS GF Gh GS Ge Gp Ge ip Ge ap Gn Gp a EP ap SS GP GP SS GD GE Ge Ge G2 aD 
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1610 MOVE.DOWN 
000332—- A6 3C 1620 LDX Al Source start address 
000334— AN 42 16 30 LDY A4 Destination start address 
000336- A5 00 1640 LDA BLKSIZ # Bytes - 1 
SHEE te 24 00 00 1650 MVN 0,0 
0003 3B- 60 1660 RTS 
1976 Sem eeeen ewww meee ee ooooeeen een e= 
1680 MOVE.UP 
3083 - 18 1690 CLC 
000 - b2 42 1700 LDA A4 
000 - 3 00 1710 ADC ‘BLKSIZ 
O00341—= A 1720 TAY Destination end address 
000342— Ab 3E 1 #0 LDX A2 Source end address 
000 ee 0 1740 LDA BLKSIZ # Bytes - 1 
000346- 00 00 1750 MVP 0,0 
000349= 60 1760 RTS 


Out of PLifitkd 4.4% 64684-0465 wot ewe sie ee eee BOD Sander-Cederlof 


After printing the mini-review of Gene Zumchak's 
“Microprocessor Design and Troubleshooting" last month, we 
naturally started receiving orders for the book. I had some on 
order from Sams, but Lo! It is now out-of-print! I talked 
with someone inside Sams and they said it will probably remain 
out-of-print. 


I talked with the author directly, and I believe that if 
necessary he will re-publish the book himself. It is a worthy 
book, and needs to be available. He wants to update some of 
the material, too. We'll let you know when we can get it 
again. 


You may have noticed that “computer” books are now the “in" 
thing to publish. I would not be surprised if some publishers 
began having serious difficulties because of their eagerness to 
grab this market. They are publishing fluff for the neophytes, 
forgetting the really useful technical titles. I hope Sams 
does not forget how it got where it is today. 


Meanwhile, as Art Carlson says, “If you see a book you need you 
had better get while it is still available." 


On this same subject, let's see if we can put some pressure on 
Apple to make their reference manuals more readily available. 

I find that very few (hardly any) Apple dealers wili stock or 
even special order the ProDOS, //e, and //c Reference Manuals. 
More than twice I have been told that (for example) the //e 
manual had never been published, even though I bought a copy at 
a store many moons ago. It seems that Apple will only sell the 
books in bundles of five or more of the same title, and then 
only to Apple dealers. Apple dealers seem to not want to order 
five or more of what are a relatively slow moving item. After 
all, they are not book stores. And consequently, Apple gets 
the erroneous impression that they really do not need to 
publish the manuals, because no one is buying them! If you 
know anyone in Apple, pass the word to them: WE DO WANT 
REFERENCE MANUALS. Maybe it does make sense not to ship a copy 
of every manual with every computer, but some means MUST be 
available for EVERY owner to buy the manuals he needs. 
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Apple Peripherals 


@ Absolutely, positively, totally 
PRO-DOS and DOS 3.3 
compatible. 

@ Time in hours, minutes, seconds 
and milliseconds (the ONLY PRO- 
DOS compatible card with 
millisecond capability). 

@ 24 hour military format or 12 hour 
with AM/PM format. 

@ Date with year, month, day of week and leap year. 

@ The easiest programming in BASIC. 

@ Eight software controlled interrupts so you can run two programs at the 
same time (many examples are included). 

@ Compatible with ALL of Apple's languages. Many sample programs for 
machine code, Applesoft, CP/M and Pascal on 2 disks. 

@ On-board timer lets you time any interval up to 48 days long down to the 
nearest millisecond. 

@ Rechargeable nickel-cadmium battery will last over 20 years. 

@ Two BSR/serial ports for future expansion. 


MemoryMaster Ile 128K RAM Card 

@ Expands your Apple Ile to 192K memory. 

@ Provides an 80 column text display. 

@ Compatible with all Apple tle 80 column and extended 80 column card 
software (same physical size as Apple’s 64K card). 

@ Can be used as a solid state disk drive to make your programs run up to 20 
times FASTER (the 64K configuration will act as half a drive). 

@ Permits your Ile to use the new double high resolution graphics. 

@ Automatically expands Visicalc to 95K storage in 80 columns! The 64K 
config. is all that’s needed, 128K can take you even higher. 

@ PRO-DOS will use the MemoryMaster He as a high speed disk drive. 

@ The 64K MemoryMaster Ile will automatically expand Apple Works to 55K 
storage. The 128K MemoryMaster Ile will expand Apple Works to 101K 
storage. 

@ High Speed disk emulation for BASIC, Pascal and C P/M is available at avery 
low cost. NCT copy protected. 

@ Documentation included, we show you how to use all 192K. 

Ihvoualreads have Apples 643k cand justorderthe SYEMORY MASTER Te wath 64K aod ose the 


bth trom voucold board to gave vou ag tall 28K (The boards folly socketed sovou simply plag 


aed a MemoryMaster Ile with 128K $249 
Upgradeable MemoryMaster Ile with 64K $169 
Non Upgradeable MemoryMaster He with 64K $149 


There used to be about a dozen 80 column cards for the Apple, now there's only ONE. 


@ TOTALLY Videx Compatible. 

® 80 characters by 24 lines, witit a sharp 7x9 dot matrix. 

@ On-board 40/80 soft video switch with manual 40 column override. 

@ Fully compatible with ALL Apple languages and software—there are NO 
exceptions, 

@ Low power consumption through the use of CMOS devices. 

@ All connections are made with standard video connectors. 

@ Both upper and lower case characters are standard. 

@ All new design (using a new Microprocessor based C.R.T. controller) fora 
beautiful razor sharp display. 

@ The VIEWMASTER incorporates all the features of all other 80 column 
cards, plus many new improvements. 


SUPER MUSIC SYNTHESIZER 


@ Complete 16 voice music synthesizer on one card. Just plug it into your 
Apple, connect the audio cable (supplied) to your stereo, boot the disk 
supplied and you are ready to input and play songs. 

@ It’s easy to program music with our compose software. You will start right 
away at inputting your favorite songs. The Hi-Res screen shows what you 
have entered in standard sheet music format. 


Texas Residents Add 5% Sales Tax 
Add $10.00 If Outside U.S.A. 


That’s Why We’re So Good At It! 


THE NEW TIMEMASTER 11 H.O. 


VIEWMASTER 80 


Our boards are far superior to most of the consumer electronics made today. Alll.C.’s are in high quality sockets with mil-spec. components used throughout. P.C. boards are glass- 
epoxy with gold contacts. Made in America to be the best in the world. All products work in the APPLE IIE, II, 11+ and Franklin. The MemoryMaster Ile is Ile only. Applied Engineering 
also manufactures a full line of data acquisition and control products for the Apple: A/D converters and digital I/O cards, etc. Please call for more information. Allour products are fully 
tested with complete documentation and available for immediate delivery. All products are guaranteed with a no hassle THREE YEAR WARRANTY. 


Send Check or Money Order to: 
APPLIED ENGINEERING 


P.O. Box 798 
Carrollton, TX 75006 


Are All We Make 


Full emutation of all other clocks. Yes, we emulate Brand A, Brand T, Brand P, 
Brand C, Brand S and Brand M too. It's easy for the H.O. to emulate other 
clocks, we just drop off features. That’s why the H.O. can emulate others, but 
none of the others emulate us. 

The Timemaster il H.O. will automatically emulate the correct clock card for 
the software you're using. You can also give the H.O. a simple command to 
tellit which clock to emulate. This is great for writing programs for those poor 
unfortunates that bought some other clock card. 

Of course, most programs will use the Timemaster II H.O. in its native mode, 
but its comforting to know that you can use programs written for other 
products without any modification. 


REMOTE CONTROL 

Our BSR X-10 interface option for the H.O. allows you to remotely control up 
to 16 lights and electrical appliances through your BSR X-10 home control 
system in your home or office. You're already wired because a BSR system 
sends its signals over regular 120 volt wiring, That means you can control any 
electrical device in your home or office without any additional wiring, 


PRICE $129.00 BSR Option $49.00 


Z-80 PLUS 


@ TOTALLY compatible with ALL 
CP/M software. 

@ The only Z-80 card with a special 
2K “CP/M detector’ chip. 

@ Fully compatible with microsoft 
disks (no pre-boot required). 

@ Specifically designed for high 
speed operation in the Apple Ile 
(runs just as fast in the I+ and 
Franklin). 

@ Runs WORD STAR, dBASE II, COBOL-80, FORTRAN-80, 

PEACHTREE and ALL other CP/M software with no pre-boot. 

@ A semi-custom I.C. and low parts count allows the Z-80 Plus to fly thru 
CP/M programs at a very low power level. (We use the Z-80A at fast 
4MHZ,) 

@ Does EVERYTHING the other Z-80 boards do, plus Z-80 interrupts. 

Don’t confuse the Z-80 Plus with crude copies of the microsoft card. The Z-80 

Plus employs a much more sophisticated and reliable design. With the Z-80 

Plus you canaccess the largest body of software in existence. Two computers 

in one and the advantages of both, all at an unbelievably low price. 


PRICE $139.00 
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VIEWMASTER 
SU PRTERAY 
WI7ARDBO 
VISIONSO 
OMANIVISION 
VIEWATAYaO 
SMARTERAS MORE VIS YES NO SO 
VIDEOTERSM MORE NO vfs Yes YES 
The VIEWMASTER 80 works with all 80 column applications including CP/M, 
Pascal, WordStar, Format tI, Easywriter, Apple Writer II, VisiCalc, and all 
others. The VIEWMASTER 80 is THE MOST compatible 80 column card you 
can buy at ANY price! 

Thousands SOLD at $179 NOW ONLY $159.00 


- END MOCKINGBOREDOM 


® Now with new improved software for the easiest and the fastest music 
input system available anywhere. 

@ We give you lots of software. In addition to Compose and Play programs, 2 
disks are filled with over 30 songs ready to play. 

@ Easy to program in Basic to generate complex sound effects. Now your 
games can have explosions, phaser zaps, train whistles, death cries. You 
name it, this card can do it. 

@ Four white noise generators which are great for sound effects. 

@ Plays music in true stereo as well as true discrete quadraphonic. 

@ Full control of attack, volume, decay, sustain and release. 

@ Our card will play notes from 30HZ to beyond human hearing. 

@ Automatic shutoff on power-up or if reset is pushed. 

@ Many many more features. 


PRICE $159.00 


Call (214) 492-2027 

8 am. to 11 p.m. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 
No extra charge for credit cards 
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Corrections to Line Number Cross Reference.........eBill Morgan 


Allen Miller just called up from Hong Kong (at 3:30 AM his 
time!) to report a problem with the Line Number Cross Reference 
program in the August issue. It seems that as published it 
only prints out the first line number list in each chain. The 
troublemaker is line 4560, which says BNE .1. Well .1 is the 
next line, so the routine is always exiting after only one 
pass. Line 4560 should read BNE PRINT.CHAIN, to go back to the 
beginning rather than on to the end. 


Then Chuck Welman called to point out yet another problem. It 
seems that an undefined line number greater than the last line 
of the program caused LCR to head off into the wilderness. 

When I investigated this one it proceeded to get even stranger. 
LCR would hang only if the undefined line number was greater 
than 19668! Less than 19668 came out just right, and equal to 
19668 worked, but LCR mistakenly said the line was defined. 

Now here was a real creepy crawler of a bug! 


Well the problem turned out to be in the CHECK.DEFINITION 
routine. Here are the offending lines: 


4790 .4 LDY #0 


4800 LDA (PNTR) ,Y lo-byte of next line address 
4810 PHA 

4820 INY 

4830 LDA (PNTR) ,Y and hi-byte 

4840 STA PNTRt1 

4850 PLA 

4860 STA PNTR 

4870 JMP CHECK.DEFINITION 


This code is called when CHECK.DEFINITION wants to get the next 
line of the Applesoft program. The trouble comes up because 
there is no check for end-of-program. Sooner or later we come 
to the zero bytes that mark the end, load up PNTR with zeroes, 
and go back to CHECK.DEFINITION to try what seems to be the 
next line. That routine then compares the line number we are 
checking to the contents of locations 2 and 3 of memory, which 
Applesoft has loaded with D4 and 4C. Now $4CpD4 equals 19668, 
so that's where that funny number came from! 


Here is a slightly rearranged, working version of lines 
4790-4870. Note that we have reversed the hi-lo byte sequence 
and added a check for a zero hi-byte: 


4790 .4 LDY #1 


4800 LDA (PNTR) ,Y hi-byte of next line address 
4805 BEQ .2 end of program? 

4810 PHA 

4820 DEY 

4830 LDA (PNTR) ,Y and lo-byte 

4840 STA PNTR 

4850 PLA 

4860 STA PNTR+1 

4870 JMP CHECK.DEFINITION 
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Macintosh ASSEMDlErS...ccccccccvecccccccccsecccsceceeveeLane Hauck 
San Diego, CA 


I have the privilege* of Beta testing two 68000 assemblers for 
the Macintosh -- the one from Apple (Workshop), and the one 
from Mainstay. Mainstay is the “serious” side of Funsoft. 


* (If you are masochistic, and enjoy little surprises like 
alert boxes with no messages or GoAwayButtons in them, frequent 
Crashes, and system fonts abruptly changing; you too might want 
to become a Beta Tester.) 


I've gotten permission from both Apple and Mainstay to talk 
about these products. The versions I'm testing are 
preliminary, and therefore subject to change. 


The Workshop is in “version 0.6" release, and is expected to be 
available about October (I'd guess November). The Mainstay 
product is scheduled for early October release, and judging 
from their staff and working hours, I think they'll make it. 

(I visited them in Agoura, CA, and found a very smart and hard 
working group of programmers.) 


Although both assemblers do the same thing -- translate 68000 
source programs into runnable programs on the Macintosh -- they 
couldn't be more different in how they operate! 


Now you can monitor and control the world (or at least your part of it) with a little help from 


APPLIED ENGINEERING 


12 BIT, 16 CHANNEL, 
PROGRAMMABLE GAIN A/D 
All new 1984 design incorporates the 
latest in state-of-art LC. technologies. 
Complete 12 bit A/D convener, withan 
accuracy of 0.02%! 


16 single ended channels (single ended 
means that your signals are measured 
against the Apple’s GND.) or 8 
differential channels. Most all the 
signals you will measure are single 
ended. 

9 software programmable full scale 
ranges, any of the 16 channels can have 
any range at any time. Under program 
control, you can select any of the 
following ranges: + 10 volts, +5V, 
+2.5V, +1.0V, +500MV. +250MV, 
+1O00MV, +SOMV, or +25MV. 

Very fast conversion (25 micro seconds). 
Analog input resistance greater than 
1,000,000 ohms. 

Laser-trimmed scaling resistors. 


Low power consumption through the 
use of CMOS devices. 

The user connector has +12 and -12 
volts on it so you can power your 
sensors. 

Only elementary programming is 
required to use the A/D. 

The entire system is on one standard 
size plug in card that fits neatly inside 
the Apple. 

System includes sample programs on 


disk, PRICE $319 


8 BIT, 8 CHANNEL A/D 
8 Channels 
8 Bit Resolution 
On Board Memory 
Fast Conversion (.078 ms per channel) 


A/D Process Totally Transparent to 
Apple (looks like memory) 


The APPLIED ENGINEERING A/D 
BOARD is an 8 bit, 8 channel, memory 
buffered, data acquisition system. It 
consists of an 8 bit A/D converter, an 8 
channel multiplexer and 8 x 8 random 
access memory. 


The analog to digital conversion takes 
place on a continuous, channel 
sequencing basis. Data is automatically 
transferred to on board memory at the 
end of each conversion. No A/D 
converter could be easier to use. 

Our A/D board comes standard with 0. 
10V full scale inputs. These inputs can 
be changed by the user to 0, -10V, or 
-5V, +5¥V or other ranges as needed. 
The user connector has +12 and -12 
volts on il so you can power your 
sensors. 


@ Accuracy: 0.3% 
@ Input Resistance: 20K Ohms Typ 


PRICE $129.00 


A few applications may include the monitoring of @ flow @ temperature @ humidity 
® wind speed e@ wind direction @ light intensity @ pressure © RPM @ soil moisture 


and many more. 


SIGNAL CONDITIONER 


Our 8 channel signal conditioner is designed for use with both our A/D converters. This 
board incorporates 8 F_E.T. op-amps, which allow almost any gain or offset. Forexample: an 
input signal that varies from 2 00 to 2.15 volts or a signal that varies from 0 to 50 mV can 
easily be converted to 0-10V output for the A/D. 


The signal conditioners outputs are a high quality 16 pin gold 1.C. socket that matches the 
one on the A/D’s so a simple ribbon cable connects the two. The signal conditioner can be 
powered by your Apple or from an external supply. 


FEATURES 

@ 4.5” square for standard card cage and 4 mounting holes for standard mounting. The 
signal conditioner does not plug into the Apple, it can be located up to % mile away from 
the A/D. 

@ 22 pin.156 spacing edge card input connector (extra connectors are easily available i.e. 
Radio Shack). 


@ Large bread board area. 
Full detailed schematic included. 


PRICE $79.00 


DIGITAL INPUT/OUTPUT BOARD 


@ Your inputs can be anything from high 
standard 16 pin socket for standard dip * speed logic to simple switches. 
ribbon cable connection. @ Very simple to program, just PEEK at the 
Power-up reset assures that all outputs data. 
are off when your Apple is turned on. @ Now, onone card, you can have 8 digital 
Features 8 inputs that can be driven outputs and 8 digital inputs each with its 
from TTL logic or any 5 volt source. own connector. The super input/output 
board is your best choice for any control 
application. 
The SUPER INPUT/OUTPL'T board manual inctudes many programs forinputs and outputs. 
A detailed schematic is included. 
Some applications include: 
Burglar alarm, direction sensing, use with relays to turn on lights, sound buzzers, start 
motor, control tape recorders and printers, use with digital joystick, PRICE $69.00 


Provides 8 buffered outputs to a 


Please see our other full page ad in this magazine for information on Applied Engineering's Timemaster Clock Card and other products for the Apple. 
Our boards are far superior to most of the consumer electronics made today. All 1.C.’s are in high quality sockets with mil-spec. components used throughout. P.C. boards are glass-epoxy 
with gold contacts. Made in America to be the best in the world. All products compatible with Apple II and //e. 


Applied Engineering's products are fully tested with complete documentation and available for immediate delivery. All products are guaranteed with a no hassle three year warranty. 


Texas Residents Add 5% Sales Tax 
Add $10.00 If Outside U.S.A. 
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Send Check or Money Order to: 
APPLIED ENGINEERING 
P.O. Box 798 
Carroliton, TX 75006 


Call (214) 492-2027 
7 a.m, to 11 p.m. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 
No extra charge for credit cards 


The Apple Assembler 


The Workshop has several parts. EDIT, ASM, LINK and EXEC are 
four applications that do the actual code development. 
Additionally, RMAKER creates resource files from text source 
files created by EDIT. And finally, MacDB and its associated 
“Nub" programs provide debug support for when your code doesn't 
run, 


The development system can run on one drive, but two are highly 
recommended. 


EDIT: This is a DISK BASED editor, so the short document 
frustrations of MacWrite are avoided. Additionally, you can 
open up to four documents, and cut and paste between them (a la 
Lisa)! This is a bare bones (but wonderful) editor, without 
fancy fonts or formatting. One improvement over the Lisa 
editor: it has a “reverse tab" -- hitting backspace from a tab 
stop takes you back not one space, but back one tab position. 
This is a great convenience when you're entering formatted 
source code. 


ASM: Supports conditional assembly, macros (both “Lisa-type" 
and new “Mac-type“). It's tailored to the Mac development 
environment (for example it helps you write relocatable code). 


Toolbox support is provided by special, compressed equate files 
(they are compressed by a program called PacSyms, which you can 
use to compress your own equate files). The Workghop provides 
all the Trap and symbol equates mentioned in Inside Macintosh. 


Don Lancaster's AWilIe TOOLKIT 


Solve all of your Applewriter™ IIe hassles with these eight diskette sides 
crammed full of most-needed goodies including .. . 


Patches for NULL, shortline, IIc detrashing, full expansion 
Invisible and automatic microjustify and proportional space 
Complete, thorough, and fully commented disassembly script 
Detailed source code capturing instructions for custom mods 
Clear and useful answers to hundreds of most-asked questions 
Camera ready print quality secrets (like this ad, ferinstance) 
New and mind-blowing WPL routines you simply won't believe 
Self-Prompting (!) glossaries for Diablo, Epson, many others 
Includes a free "must have" bonus book and helpline service 


All this and bunches more for only $39.95. Everything is unlocked and 
unprotected. Order from SYNERGETICS, 746 First Street, Box 809-AAL, 
Thatcher, AZ, 85552. (602) 428-4073. VISA or MC accepted. 
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LINK: Links “.REL" code modules produced by the Assembler, and 
(eventually -- not working yet) output files from RMAKER to 
produce a final file, complete with your code and resources. 
Takes its direction from a “.LINK" text file. 


EXEC: Lets you automate the entire ASM-LINK process. One 
great improvement over the Lisa version: you can direct EXEC 
to reenter the editor if any assembly or link errors occur. 


FIVE debuggers are supplied. MacDB is the best, most visible 
debugger I'ver ever seen. It requires two Macs (or one Mac and 
a Lisa running MacWorks). The Workshop will be supplied with 
an interconnect cable for two Macs. Other debugger versions 
(which don't require the second Mac) let you debug from an 
8-line onscreen window on the Mac, and from any remote 
terminal. 


This is a professional, complete, “industrial strength“ 68000 

assembly language development package. Its utilization of the 
Macintosh environment is total and outstanding. My only real 

quibble is that it takes a fair amount of time (a few minutes) 
to “turn”® one cycle from EDIT to running the new code. A hard 
disk would presumably improve this greatly. 


If you're an “interactive” programmer who likes to make changes 
and see their results QUICKLY, you might be interested in the 
Mainstay Assembler. 


The Mainstay Assembler 


If you've ever used any of the assemblers for the Apple II from 
S-C Software, you'll feel right at home with the Mainstay 
environment. It's patterned after the S-C 68000 Cross 
Assembler, and it looks and feels just like you're running on 
an Apple //e! 


The fact that none of the Macintosh interface is used will 
bother some, especially the Mac purists. Mainstay's intention 
is to get a quality assembler to market quickly, and the 
approach they've taken allows this to happen. I don't mind 
non-fidelity to the Mac interface in a DEVELOPMENT product -- 
we developers are EXPECTED to put up with all sorts of 
indignities! 


This is an absolute assembler, meaning that your code module is 
produced with an address origin, and it is loaded and run at 
that address. It does not produce “linkable” code modules, as 
does the Apple Workshop Assembler. In fact no linker is 
supplied or required. 


The Editor is built in, and it functions much like the Apple 
II. The cursor is moved around with keyboard commands. The 
Editor has BASIC-like line numbers and the normal complement of 
line-number oriented commands (RENumber, COPY, MOVE, etc.). 
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Resources are handled right inside your source code (remember 
there is only one code "“module"). This is more convenient than 


the Apple “RMAKER“ approach. 


The Assembler supports conditional assembly, macros, and local 
labes. It takes a novel approach in how it is installed and 
run on the Macintosh. 


When you start the Assembler, it grabs a large chunk of memory 
from the application heap, and uses it for storing the symbol 
table, source code, and object code. Typing MEM shows you 
exactly where these three memory areas are. While you're in 
the Assembler environment, your code “stays put", so you can 
deal with absolute addresses without fear that the memory 
Manager will move things around on you. 


This means that you can edit, assemble, and test your code 
IMMEDIATELY, without goin through a linking and (optionally) a 
resource compiling step. This is the primary strength of this 
assembler -- it allows “quicklook*® programming which is ideal 
for experimentation and learning the Macintosh systen. 


Eventually you will want to make your application an 
“installable” Macintosh program, so you should get into the 
habit of writing position independent code. The Mainstay 
package will supply the tools necessary to make your 
application runnable on the Mac. It will also contain Toolbox 
and Operating System equate files. 


There are some nice "Apple II-like“ features, such as typing 
DIR to look at the disk catalog. In the Mac environment, you 
have to exit the application and get back to the desktop to see 
your files. You can also type "EJECT" and eject a disk 
immediately. I like to do this just before running new code, 
to protect disks from my runaway test programs that 
mysteriously fire up the disk drive. 


Having this assembler, a Mac, and a copy of INSIDE MACINTOSH 
might just be the most efficient way to learn the Macintosh. 
The prime benefit of this assembler is its very high speed in 
moving between editing, assembling, and running your test code. 


Which One? 


Which assembler would I recommend? At this stage I'd have to 
give the universal Computer Salesman answer: “It depends." 


The Apple one allows you to write separate code modules, 
assemble them, and then link them together later. This allows 
you to utilize already written and debugged modules in new 
programs. 


Another advantage of the “linker” approach is that a single 
module can be changed and reassembled, and then linked to other 
already-debugged modules. This saves reassembling the whole 
Shebang every time you make a change. 
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If you like this “relocatable assembler" approach, you'll want 
the Apple Assembler. (If you're comfortable with the Lisa 


Assembler, ditto.) 


The Mainstay Assembler, by contrast, is an absolute assembler - 
it puts code at a particular place in memory (set by an ORG - 
Origin statement), and allows only one “module” -- your entire 
program. (Better write relocatable code if you want it to run 
as an application, though!) 


The Mainstay Assembler is so fast (eSpecially if you put a 
“LIST OFF" directive at the beginning of your code), that it 
negates the speed advantage of the linked module approach. I 
would guess that it takes you from source code edit to running 
reassembled code in about one-twentieth the time required by 
the Apple Assembler. if you're an “interactive® programmer who 
likes to see results of program changes FAST, the Mainstay 
Assembler is for you. 


If time is a factor, the Mainstay product will ship within a 
week; the Apple Assembler is supposed to come out in October, 
but I doubt it. 


If you're unhappy with “non-Mac-user-interface" products, 
you're better off with the Apple version. The operation of the 
Mainstay assembler is a bit strange at first, but anyone with 
Apple II roots will adjust quickly. 


Here's a factor I consider very important: Apple is a "Pascal 
house" with almost no support given to assembly language 
programming of the Macintosh. I've found their support in this 
area dismal. 


The Mainstay Assembler is a major committment by this small 
company. I've had quite a bit of technical interaction with 
them, and have found them to be very intelligent, motivated, 
and responsive. I've had indications that you'll be able to 
expect not only Assembler support from Mainstay, but also some 
Macintosh support as well. 


[ 10/15 -- The folks at Mainstay tell me they started shipping 
last week, so we should have some copies for sale by the time 
you read this. The introductory price is $100. -- Bill ] 
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